Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vbmidi/vb_seq.frm

Text File | 1995-02-04 | 51KB | 1,640 lines

VERSION 2.00
Begin Form frmVBSeq
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "VB Sequencer"
   ClientHeight    =   5160
   ClientLeft      =   3735
   ClientTop       =   2235
   ClientWidth     =   3930
   Height          =   5850
   Icon            =   VB_SEQ.FRX:0000
   KeyPreview      =   -1  'True
   Left            =   3675
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5160
   ScaleWidth      =   3930
   Top             =   1605
   Width           =   4050
   Begin CommonDialog dlgFileDialog
      Left            =   3270
      Top             =   5490
   End
   Begin Timer tmrActualize
      Interval        =   111
      Left            =   1740
      Top             =   6120
   End
   Begin SSPanel Z
      BevelInner      =   1  'Inset
      BevelOuter      =   0  'None
      BevelWidth      =   2
      BorderWidth     =   1
      ForeColor       =   &H00FF0000&
      Height          =   1455
      Index           =   3
      Left            =   90
      TabIndex        =   33
      Top             =   1350
      Width           =   3765
      Begin SSPanel Z
         BevelOuter      =   0  'None
         Caption         =   "Program"
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00000000&
         Height          =   195
         Index           =   14
         Left            =   2340
         TabIndex        =   50
         Top             =   720
         Width           =   855
      End
      Begin SSCommand cmdProgDecr
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00FF0000&
         Height          =   405
         Left            =   3030
         Outline         =   0   'False
         Picture         =   VB_SEQ.FRX:0302
         TabIndex        =   49
         Top             =   930
         Width           =   345
      End
      Begin SSCommand cmdProgIncr
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00FF0000&
         Height          =   405
         Left            =   2160
         Outline         =   0   'False
         Picture         =   VB_SEQ.FRX:0604
         TabIndex        =   48
         Top             =   930
         Width           =   345
      End
      Begin SSCommand cmdChanIncr
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00FF0000&
         Height          =   405
         Left            =   390
         Outline         =   0   'False
         Picture         =   VB_SEQ.FRX:0906
         TabIndex        =   45
         Top             =   930
         Width           =   345
      End
      Begin SSCommand cmdChanDecr
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00FF0000&
         Height          =   405
         Left            =   1260
         Outline         =   0   'False
         Picture         =   VB_SEQ.FRX:0C08
         TabIndex        =   44
         Top             =   930
         Width           =   345
      End
      Begin SSPanel Z
         BevelOuter      =   0  'None
         Caption         =   "Channel"
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00000000&
         Height          =   195
         Index           =   1
         Left            =   630
         TabIndex        =   43
         Top             =   720
         Width           =   765
      End
      Begin SSPanel pnlFileName
         BevelOuter      =   0  'None
         BevelWidth      =   3
         BorderWidth     =   0
         Caption         =   "FILE : ?"
         Font3D          =   2  'Raised w/heavy shading
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00000080&
         Height          =   240
         Left            =   270
         TabIndex        =   38
         Top             =   60
         Width           =   3195
      End
      Begin SSPanel lblRecMesNum
         Alignment       =   1  'Left Justify - MIDDLE
         BevelOuter      =   0  'None
         BorderWidth     =   1
         Caption         =   "0"
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   2430
         TabIndex        =   36
         Top             =   390
         Width           =   825
      End
      Begin SSPanel lblRecMesText
         Alignment       =   4  'Right Justify - MIDDLE
         BevelOuter      =   0  'None
         BorderWidth     =   1
         Caption         =   "MIDI Messages ="
         Font3D          =   3  'Inset w/light shading
         ForeColor       =   &H00FF0000&
         Height          =   195
         Left            =   810
         TabIndex        =   37
         Top             =   390
         Width           =   1545
      End
      Begin Label lblProgram
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Left            =   2520
         TabIndex        =   47
         Top             =   990
         Width           =   495
      End
      Begin Label lblChannel
         Alignment       =   2  'Center
         BorderStyle     =   1  'Fixed Single
         Caption         =   "1"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Left            =   750
         TabIndex        =   46
         Top             =   990
         Width           =   495
      End
   End
   Begin SSCommand cmdStopUp
      BevelWidth      =   0
      Font3D          =   3  'Inset w/light shading
      ForeColor       =   &H00000000&
      Height          =   510
      Left            =   120
      Outline         =   0   'False
      Picture         =   VB_SEQ.FRX:0F0A
      TabIndex        =   20
      TabStop         =   0   'False
      Top             =   5460
      Visible         =   0   'False
      Width           =   510
   End
   Begin SSCommand cmdPlayUp
      BevelWidth      =   0
      Font3D          =   3  'Inset w/light shading
      ForeColor       =   &H00000000&
      Height          =   510
      Left            =   630
      Outline         =   0   'False
      Picture         =   VB_SEQ.FRX:120C
      TabIndex        =   19
      TabStop         =   0   'False
      Top             =   5460
      Visible         =   0   'False
      Width           =   510
   End
   Begin SSCommand cmdRecUp
      BevelWidth      =   0
      Font3D          =   3  'Inset w/light shading
      ForeColor       =   &H00000000&
      Height          =   510
      Left            =   1140
      Outline         =   0   'False
      Picture         =   VB_SEQ.FRX:150E
      TabIndex        =   18
      TabStop         =   0   'False
      Top             =   5460
      Visible         =   0   'False
      Width           =   510
   End
   Begin SSCommand cmdStopDn
      BevelWidth      =   0
      Font3D          =   3  'Inset w/light shading
      ForeColor       =   &H00000000&
      Height          =   510
      Left            =   1650
      Outline         =   0   'False
      Picture